home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / CRITTER.TCL < prev    next >
Encoding:
Text File  |  2002-06-20  |  2.3 KB  |  97 lines
  1. proc critterwatch_normal {} {
  2.  
  3.     if {[.isinparentsystem] == "true"} {
  4.         .announcestate waitsearch
  5.       } elseif {[.islifetimeover] == "true"} {
  6.          .announcestate die
  7.     }
  8. }
  9.         
  10.  
  11. proc critterwatch_waitsearch {} {
  12.     if {[.hitvictim] == "true"} {
  13.          .announcestate preexplode
  14.     } elseif {[.iskilled] == "true"} {
  15.          .announcestate explode
  16.       } elseif {[.islifetimeover] == "true"} {
  17.          .announcestate die
  18.       } elseif {[.isinparentsystem] == "false"} {
  19.           .announcestate normal
  20.       } elseif {[.hastarget] == "true"} {
  21.         .announcestate goto
  22.     } else {
  23.         set tgt [.searchtarget]
  24.         if {($tgt != "null") && ([.testvehicleastarget $tgt] == "true")} {
  25.             .setvehicletarget $tgt 300 true
  26.             .announcestate goto
  27.         }
  28.     }
  29. }
  30.  
  31. proc critterwatch_goto {} {
  32.     if {[.hitvictim] == "true"} {
  33.          .announcestate preexplode
  34.     } elseif {[.iskilled] == "true"} {
  35.          .announcestate explode
  36.       } elseif {[.islifetimeover] == "true"} {
  37.          .announcestate die
  38.       } elseif {[.isinparentsystem] == "false"} {
  39.           .announcestate normal
  40.       } elseif {[.hastarget] == "false"} {
  41.         .announcestate waitsearch
  42.     } elseif {[.istargetreachable] == "false"} {
  43.         puts "Ziel is wech"
  44.         .deletetarget
  45.         .announcestate waitsearch
  46.     }
  47.  
  48. }
  49.  
  50. proc critterwatch_attack {} {
  51.     if {[.hitvictim] == "true"} {
  52.          .announcestate preexplode
  53.     } elseif {[.iskilled] == "true"} {
  54.          .announcestate explode
  55.       } elseif {[.islifetimetimeover] == "true"} {
  56.          .announcestate die
  57.       } elseif {[.isstatetimeover] == "true"} {
  58.          .announcestate waitsearch
  59.       } elseif {[.isinparentsystem] == "false"} {
  60.           .announcestate normal
  61.       } elseif {[.hastarget] == "false"} {
  62.         .announcestate waitsearch
  63.     } 
  64.  
  65. }
  66.  
  67. proc critterwatch_preexplode {} {
  68.  
  69.     # Nach Animation wegnehmen
  70.     if {[.isanimfinished] == "true"} {
  71.         .announcestate explode
  72.     }
  73. }
  74.  
  75. proc critterwatch_explode {} {
  76.  
  77.     # Nach Animation wegnehmen
  78.     if {[.isanimfinished] == "true"} {
  79.         .setremoveable true
  80.     }
  81. }
  82.  
  83. proc critterwatch_die {} {
  84.  
  85.     # Nach Animation wegnehmen
  86.     if {[.isanimfinished] == "true"} {
  87.         .setremoveable true
  88.     }
  89. }
  90.  
  91. proc critterwatch_cinematic {} {
  92.  
  93.     if {[.iscinematicfinished] == "true"} {
  94.         .announcestate normal
  95.     }
  96. }
  97.